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START 



set B' [j]=0 for j=0 to N 






set r[p, i, j]=0 for j, i,p=0 to N 






set B' [0]=1 






run recurrence 
B' [j]=(-1) {(2d)B' Cj-l]+(j-1)B' [j-2]l/(N-j+1) 
for j=1 to N-K 






set r[0,0. j]=B' [j] for j=0 to N-K 







S10 



S20 



S30 



S40 



S50 



run recurrence 
r[p. i. j]=(r[p-l. i-lj]-r[p-1. 1-1. j+1])/2 
+ (r[p-l.K j]+r[p-1J.j+1])/2 
for j=0 to N-p, i=0 to p. p=l to N 



S60 







set h[l]=r[N, 1,0] for i=0 to N 






output h[i] for i=0 to N 


f 
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END 



Fig. 5 
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